home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1992 December / 64er_Magazin_92-12_1992_Markt__Technik_de_Side_B.d64 / hardcopy no.1 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1992-01-01  |  394 b   |  21 lines
  1. 60000 a$=chr$(16):b$=chr$(15):c$=chr$(18):d$=chr$(146)
  2. 60001 e=peek(648)*256:f=0
  3. 60002 if(peek(53272)and6)=6thenf=7
  4. 60003 open4,4,f:print#4
  5. 60004 forg=0to24:h=0:i$=""
  6. 60005 forj=0to39
  7. 60006 k=peek(e+40*g+j)
  8. 60007 ifk=34thenh=1-h
  9. 60008 ifk=162thenh=1-h:k=64
  10. 60009 ifh=1andk>=128thenk=k-128
  11. 60010 ifk>=128thenk=k-128:m=1:i$=i$+c$
  12. 60011 ifk<32ork>95theni=k+64
  13. 60012 ifk>31andk<64theni=k
  14. 60013 ifk>63andk<96theni=k+32
  15. 60014 i$=i$+chr$(i)
  16. 60015 ifm=1theni$=i$+d$:m=0
  17. 60016 nextj
  18. 60017 print#4,b$a$"20"i$
  19. 60018 nextg:close4:return
  20. 60019 end
  21.